/* GUI CONVERTED from rspmform.i (converter v1.76) Thu Sep  5 10:34:28 2002 */
/* rspmform.i - Supplier Schedule Control Form                                */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.3 $                                                           */
/*V8:ConvertMode=Maintenance                                                  */
/* Revision: 1.1        BY: Kaustubh K.          DATE: 04/27/01  ECO: *P00K*  */
/* Revision: 1.2        BY: Jean Miller          DATE: 05/07/02  ECO: *P066*  */
/* $Revision: 1.3 $     BY: Katie Hilbert        DATE: 09/05/02  ECO: *P0HK*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
rsc_active       colon 40
   rsc_gen_ship     colon 40
   rsc_auto_update  colon 40
   rsc_zero_req     colon 40
   rsc__qadl01      colon 40 label "Generate Zero Schedules"
   rsc_firm_days    colon 40
   rsc_ship_days    colon 40
   rsc_ship_weeks   colon 40
   rsc_ship_months  colon 40
   rsc_fab_days     colon 40
   rsc_raw_days     colon 40
 SKIP(.4)  /*GUI*/
with frame mfrspm-a side-labels width 80 attr-space
          NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-mfrspm-a-title AS CHARACTER.
 F-mfrspm-a-title = (getFrameTitle("SCHEDULE_CONTROL",30)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame mfrspm-a = F-mfrspm-a-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame mfrspm-a =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame mfrspm-a + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame mfrspm-a =
  FRAME mfrspm-a:HEIGHT-PIXELS - RECT-FRAME:Y in frame mfrspm-a - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME mfrspm-a = FRAME mfrspm-a:WIDTH-CHARS - .5. /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame mfrspm-a:handle).
